Module ModulePrestamo
    'Este modulo son todos los metodos para mostrar u ocultar los paneles del Formulario Prestamo
    Sub ocultarPanelesPrestamos()
        With FormPrestamo
            .tcPrestamo.Visible = False
            .panelBuscarEjemplar.Visible = False
            .panelBuscarLector.Visible = False
            .panelBuscarPrestamo.Visible = False
        End With
    End Sub
    Sub tablasPrestamo()
        With FormPrestamo
            .tcPrestamo.Visible = True
            '.tcPrestamo.Location = New System.Drawing.Point(12, 12)
            '.tcPrestamo.Size = New System.Drawing.Size(327, 382)
        End With
    End Sub
    Sub prestar()
        FormPrestamo.TabPage2.Parent = Nothing
        FormPrestamo.TabPage3.Parent = Nothing
        FormPrestamo.TabPage4.Parent = Nothing
        FormPrestamo.tcPrestamo.SelectedIndex = 0
        FormPrestamo.btnPrestamoAceptar.Text = "Prestar"
        FormPrestamo.ShowDialog()
    End Sub
    Sub devolver()
        FormPrestamo.TabPage1.Parent = Nothing
        FormPrestamo.TabPage3.Parent = Nothing
        FormPrestamo.TabPage4.Parent = Nothing
        FormPrestamo.tcPrestamo.SelectedIndex = 1
        FormPrestamo.btnPrestamoAceptar.Text = "Devolver"
        FormPrestamo.ShowDialog()
    End Sub
    Sub prorroga()
        FormPrestamo.TabPage1.Parent = Nothing
        FormPrestamo.TabPage2.Parent = Nothing
        FormPrestamo.TabPage4.Parent = Nothing
        FormPrestamo.tcPrestamo.SelectedIndex = 2
        FormPrestamo.btnPrestamoAceptar.Text = "Prorrogar"
        FormPrestamo.ShowDialog()
    End Sub
    Sub anulacion()
        FormPrestamo.TabPage1.Parent = Nothing
        FormPrestamo.TabPage2.Parent = Nothing
        FormPrestamo.TabPage3.Parent = Nothing
        FormPrestamo.tcPrestamo.SelectedIndex = 3
        FormPrestamo.btnPrestamoAceptar.Text = "Anular"
        FormPrestamo.ShowDialog()
    End Sub
    Sub morosos()
        FormPrincipal.CRV.DisplayGroupTree = False
        FormPrincipal.CRV.DisplayStatusBar = False
        FormPrincipal.CRV.ShowCloseButton = True
        FormPrincipal.CRV.Visible = True
        FormPrincipal.menuBuscar.Visible = False
        FormPrincipal.panelPrestamo1.Visible = False
        FormPrincipal.CRV.Dock = DockStyle.Fill
    End Sub
    Sub limpiar()
        With FormPrestamo
            .txtEjemplar.Clear()
            .txtLector.Clear()
            .txtEjemplarDevolucion.Clear()
            .txtProrroga.Clear()
            .txtAnularTituloEjemplar.Clear()
            .TextBox8.Clear()
            .TextBox6.Clear()
            .TextBox7.Clear()

            'Labels de Prestamo
            .lblIdEjemplar.Text = ""
            .lblTituloEjemplar.Text = ""
            .lblTituloEjemplarPrestamo.Text = ""
            .lblEditorialEjemplar.Text = ""
            .lblEstadoEjemplar.Text = ""
            .lblIdLector.Text = ""
            .lblApellidoLector.Text = ""
            .lblNombreLector.Text = ""
            .lblCursoLector.Text = ""
            .lblPrestamosLector.Text = ""

            'Labels de Devolucion
            .lblIdEjemplarDevolucion.Text = ""
            .lblEjemplarTituloDevolucion.Text = ""
            .lblejemplarAutorDevolcunio.Text = ""
            .lblEjemplarEditorialDevolucion.Text = ""
            .Label73.Text = ""
            .lblIdLectorDevolucion.Text = ""
            .lblLectorApellidoDevolucion.Text = ""
            .lblLectorNombreDevolucion.Text = ""
            .lblLectorCursoDevolucion.Text = ""
            .lblDevolucionPrestamosLector.Text = ""

            'Lavels de Prorroga
            .lblProrrogaEjemplarId.Text = ""
            .lblProrrogaEjemplarTitulo.Text = ""
            .lblProrrogaEjemplarAutor.Text = ""
            .lblProrrogaEjemplarEditorial.Text = ""
            .Label78.Text = ""
            .lblProrrogaLectorId.Text = ""
            .lblProrrogaLectorApellido.Text = ""
            .lblProrrogaLectorNombre.Text = ""
            .lblProrrogaLectorCurso.Text = ""
            .lblProrrogaPrestamosLector.Text = ""

            'Lavels de Anulacion
            .lblAnularEstadoEjemplar.Text = ""
            .lblAnularEditorialEjemplar.Text = ""
            .lblAnularAutorEjemplar.Text = ""
            .lblAnularIDEjemplar.Text = ""
            .lblAnularTituloEjemplar.Text = ""
            .lblAnularCursoLector.Text = ""
            .lblAnularPrestamosLector.Text = ""
            .lblAnularNombreLector.Text = ""
            .lblAnularIDLector.Text = ""
            .lblAnularApellidoLector.Text = ""
        End With
    End Sub
End Module
